SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 


—> 
penineneniansintharsiomeat ee Y 
! | 
j | 
i 
j 
*eee ' 
e*eee i 
| *e ee | 
eeee | 
| ’ 
| 
} 
Soooooooceeo 
lol = leolelolelelelojo) 
oo oo oo 
oo oo oo 
oo oo oo 
oo oo oo 
Soo oo oo 
oo oo oo 
SOoocooooooo 
Ooooooecoe | 
Mmmmnr Mmmm 
menor Mmmm 
me mee mne 
me me me 
me me 
mee me 
me me 
me me 
me me 
mee me 
Ll ld 
ener 
nr a 
nr Le 
Kn en 
nr Kn 
ir Ld 
Ld nr 
ad td 
Ld en 
aaaa 
aaaa 
aa aa 
aa aa 
aa Qu 
aa aa 
aa aa 
aa aa 
aaagaaaaaaqaaaaa 
aaaaaaqaaaaaqaaaa 
— 
aoaooooanaaa 
aaoooaooaoaa 
uu aco ao 
aoa aa 
ao ao 
aa aoa 
aa oo 
ao aa 
acooooanaoaaacanknHa 
anoaoaoaoaocaoaonaaaaacha 
2 ££ 6 6 oe ee ee 
<q<aaaaa > \eieteadiins 


Ee ad at ad Oe ee tt Ot te 
ee ke a ak ad ad at Od td ts 
_— — 
—e — 


LLLLLLLLLL 
LLLLLLLLLL 


Oo 
” 
~ 
a 
a 
oe 
_ 
2 
_ 
= 
cs 
Qa 
_ 
ad 
oe 
— 
4 
_ 
ae 
ca 
2 


F 
INIADP730 = ADAPTER INITIALIZATION FOR VAX 1/330 16-SEP-1984 00:51:41 VAX/VMS Macro v04-00 Page 0 
Table of contents 


(3) rh Macros to describe nexus configurations 

(4) egepter=seec fic data structures 

(5) CPU=specific data structures 

(9) Message str ngs 

(7) 734 INISIOMAP, In Sialize ig map nexuses 

(8) 99 INITADP_ 780, 750, _730, and _UV1 

(9) 16 CONF 1IG_TOSPACE 

(10) 1066 CREATE_ARRAYS 

(11) 1109 MAP_PAGES 

(13) 1998 INI SUBSPACE 

(14) 1339 INISUBADP = BUILD ADP AND INITIALIZE UBA 

(14) 1312 INISMBADP = BUILD ADP AND INITIALIZE MBA 

(14) 1816 INISDRADP = BUILD ADP AND INITIALIZE DR32 

(14) 1817 INISCIADP = BUILD ADP AND INITIALIZE Cl 

(14) 1997 INI$KD2Z11 

(14) 2031 INISCONSOLE, init data structures for console 

(15) $309 EXESINI_TIMWAIT = COMPUTE CORRECT TIMEWAIT LOOP VALUES 
(16) 299 EXESINIT_TODR - SET SYSTEM TIME TO CORRECT VALUE AT STARTUP 


INTADP730 = ADAPTER INITIALIZATION FOR VAX 41/730 16-SEP=1984 AX/VM : 
vos-02 H=SEp=1586 Po:d0:18 ESYSLOA.SRESINYADPoMaR:s © °88° ¢]) 


»NLIST CND 


-TITLE INIADP730 = ADAPTER INITIALIZATION FOR VAX 11/730 


-IDENT 'V04-002' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Faaneechete” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oreponation NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Sanaa cic inca ct ct ta aan ink cirptnt nar al tt 
Facility: System bootstrapping and initialization 


Abstract: This module contains initialization routines that are loaded 
during system initialization (rather than Linked into the system). 


Environment: Mode = KERNEL, Executing on INTERRUPT stack, IPL=31 
Author: Trudy C. Matthews Creation date: 22-Jan-1981 
Modification history: 


v04-002 TCM0013 rudy C. Matthews 10-Sep-1984 
Add $BQODEF a rom TCMOO12. 


v04-001 TCMO012 rut c. Recthews eer: Hert 
For venus proc rn on cache before calibr 
TIMEDWAIT Sells Hosein EXESINI “TIMWAIT) « Siere’ Se 9; MEDWAIT 
volves calculated after cache is-enabled in the boot driver's 
TIMEDWAIT cells. This is because the boot driver initially 
hee, te run ‘ith’ cache off, but after booting will run with 
cache on. 


v03-024 TCMO011 Tru udy C. Matthews 31-Jul-1984 
Change venus's CRD interrupt vector back to wey56 in the SCB, 
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and its SBIA Fail vector to “X64. 
v03-023 wMc0001 Wayne Cardoza 30-Jul-1984 
Add H memory to 780 List. 
§ v03-022 TCM0010 {rudy C. Matthews 25-Jul-1984 
Fix a bug in INISUBSPACE for the 11/790 that caused second 


and pubecquen’ unibus adapter spaces to be mapped incorrectly. 
Fix bugs n INIS$SCB for the 11/ . Fix gondtt tonal 
assembly flags in INISCONSOLE for the 11/790. 


v03-021 KDM0100 Kathleen D. Morse 01-May-1984 
Correct address of memory CSRs to be past the 8 missing 
Qbus adapter pages that do not exist. 


v03-020 KDM0099 Kathleen D. Morse 27-Apr-1984 
On a MicroVAX I, if the eysgen arameter TIMEDWAIT is set 
to request no time=prompt ng. then use the last recorded 
Syetes time instead. This 1s found in EXE$GQ_TODCBASE 
which can be updated with a SET TIME command. 


V03-019 RLRSCORPIO Robert L. Repeagert 16-Mar-1984 
Begin additions (to INISIOMAP) for Scorpio support. 
Also move ADAPDESC to SYSMAR.MAR, changing it to remove 
the ADAP_GENERAL array. 


V03-018 RLRINIADP Robert Rappaport 28-F eb-1984 
Add refinements to previous update that introduces 
lonqword array CONFREG. Mainly add logic to allow for 
independently assembled invocations of ADAPDESC macro 
to be Linked into this code. This provides possible 
support of BI as a public bus, with user defined nodes. 


v03-017 KPLO100 Peter Lieberwirth 30-Jan-1984 
Implement first step towards a longword-array CONFREG to 
replace current byte array CONFREG. INIADP will construct 
two confregs, CONFREG and CONFREGL. CONFREGL will be 
a longword array. The high byte will be a VMS-bus 
designation, and the low word will contain the 16-bit 
device type. The BI introduces 16 bit device types. 


When all references to CONFREG have been modified to touch 
CONFREGL, INIADP will be modified again to stop creating 
the byte array. 


COOOCCCOCOCOCOOOSOSOSOOSOSOSOOOSOOOSOSOOSOOOCOOOOSOSOoOO 
COOCOCOCOCOCOCOSOCOSOSOCOCOCSCSOCSCOOOOOOCOOOOOOOOOO 


While here, map 9 pages of CI register space, up from 8. 


v03-016 KPLOOO01 Peter Lieberwirth 17-Jan-1984 
Fix bug in VO3-015 that caused a failure to boot on 750s. 
Specifically, add NDT$_MEM1664NI to ADAPDESC macro. 


v03-015 TCMO009 Srudy C. Matthews 12-Dec-1983 
Add supper’ for booting from VENUS console device to 
INISCONSOLE. When mapping 1/0 space on VENUS, use the 
4 to determine if any adaptors are present on the 


OOSCSCCOSOOCSOOSOOOOCOSOOOOCOOOSOOSOSOOSOOOOOOSOOOOOOOOOOOO 
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SOooooooooooooooo 
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v03-014 KDM0081 Kathleen D. Morse 13-Sep-1983 
Create version for Micro-VAX I. 


VO3-013 DWT0126 David W. Thiel s0nhup- 1965 
Modify EXESINIT_TODR to set internal time without 
modifying the contents of the system disk. 


V03-012 KDM0062 Kathleen D. Morse 18-Jul-1983 
Add loadable, cpu-dependent routine for initializing 
the time-wait loop data cells, EXESINI_TIMWAIT. 


v03-011 KDM0057 Kathleen D. Morse 15-Jul-1983 
Added loadable, Cpuesepencent routine for initializing 
the system time, EXESINIT_TODR. 


V03-010 KTA3071 Kerbey T. Altmann 12-Jul-1983 
Include CPU-specific console init code. 


v03-009 TCMO008 {rudy C. Matthews 10-Jan-1983 
Freres PSECT of 11/790 data that must stick around after 
INIADP is deleted. Build erreye ABUS_VA, ABUS_TYPE, and 
ABUS_INDEX that describe the 11/790 ABuS configuration. 


Oooo 
Oooo 


v03-008 MSHO002 Maryann Hinden 08-Dec-1982 
Add powerfail support for DW750. 
V03-007 ROW0142 Ralph 0. Weber 24-N0V-1982 


Change UBA interrupt services routines prototype so that 
UBAERRADR is correctly computed as an offset from UBAINTBASE. 


V03-006 TCM0007 Trudy C. Matthews 10-Nov-1982 
Add 11/790-specific initialization of SCB. 


v03-005 TCM0006 Trudy C. Matthews 88-Nov-1982 
Initialize field ADPSL_AVECTOR with the address of 
each adapter's first SUB vector. 


V03-004 KTA3018 Kerbey T. Altmann 30-0c t-1982 
Move from INILOA faci oh rename from INITADP 
put in conditional assem ly, rewrite some routines. 


pp pew eee a feo lolol ole lololololololololololololo) 


v03-003 MSHO001 Ree zene Hinden 24-Sep-1982 
Change EXESDW780_INT to EXESUBAERR_INT. 

v03-002 TCMO00S Trudy C. Matthews 10-Aug-1982 
Added support for 11/790 processor. 

v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 


Added SDCDEF. 
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184 : 
} 5 . MACRO LIBRARY CALLS 
1 $3 SADPDEF 3; Define ADP offsets. 
1 } SBIICDEF ; Define BIIC offsets. 
8 1 SBQODEF 3; Define boot vec tor offsets. 
190 SBTDDEF i Define boot devices 
8 191 SBUADEF ; Define BUA Re acer offsets. 
135 SCRBDEF 3; Define CRB offs 
19 SDCDEF 3; Define adapter” on 
194 SDDBDEF 3; Define DDB offsets 
195 SDYNDEF ; Define ate structure type codes. 
S38 Hs 2H ; Define ntecruet 0 ereses ee er offsets. 
3 0 $107350DEF 3; Define 11/73 
19 SMCHKDEF :; Define ie. shee “pasha 
3 0 SNOTDEF ; Define nexus device types. 
0 1 SPRDEF : Define IPR numbers. 
0000 356 
0000 0 
0000 f SPR730DEF 3; Define 11/730 specific IPR numbers. 
38s 
0000 4 
0000 79 SPTEDEF ; Define Page Table Entry bits 
0000 48 SRPBDEF 3; Define Restart Parameter Block fields. 
i es | Bins UBS setae offsets 
; Define rs) 
0000 51 SVADEF ; Define virtual gt ane fields. 
0000 52 SVECDEF ; Define vec offsets. 


kK 
INIADP730 = ADAPTER INITIALIZATION FOR VAX 1 /}30 16-SEP-1984 00:51:41 VAX/VMS Macro Vv04-00 P ; 
Vou-b02 Macros to describe nexus senflquretions 11-SEP-1984 98: 9:18 SYSLOA.SRCJINIADP.MAR; 3 a 3) 


-SBTTL Macros to describe nexus configurations 


The macros FLOAT_NEXUS and FIXED_NEXUS add one or more entries to a 
nexus descriptor table. Each entry is of the form: 


weer er erent een ee meme ne ee ewe wen cen $ 


UII 


{| PFN of nexus 1/0 space ' 


ee ee 
| wwe. ft 8 =e type i 
$¢encece pe won mance r een oe + 
type = 0 => hen hay nexus 
type = non-zero => Tixed nexus; type = fixed adapter type 
bus = 0, if SB1; %x80 if BI (this is a VMS-only designation) 


device_type: SBI adapters have 8-bit device type codes. These 
device types are simple integers. 


BI adapters have 16-bit device type codes, that are 
subject to the following interpretation: 


- the MSB of the device-type field will be 0 for DEC 
devices and 1 for non-DEC devices, 


- DEC memory devices will have 0s in the high-order 
byte of the device type, 


= non=-DEC supplied memory devices will have a 1 in the 
MSB of the high-order byte, and the rest of the high 
order byte will contain Os. 


- The ‘‘all Os'’ and “‘all 1s'’ device-type codes are 
reserved for DEC. 


If SBI type codes were otealy expanded to a word for purposes of the routines 
in this module, there would be possible conflicts between SBI devices and 
BI memory adapters supplied by DEC. Voila: the bus type. 


Se en Sa 

PHYSADR == phyetcat address of 1 or more contiguous floating nexus 
slots 

NUMNEX == number of contiguous floating nexuses, default = 1 

PERNEX == amount of address space per nexus (does not have to be 
specified if NUMNEX = 1) 

«MACRO FLOAT_NEXUS PHYSADR , NUMNE X=1,PERNEX=0 

PA = PHYSADR 

»REPEAT NUMNEX ; For each nexus... 

-LONG <PA/*X200> 3; Store PFN. 


-LONG 0 Store floating nexus type. 
4 EA, + PERNEX ; Increment to physical address of next nexus. 
“ENDM — FLOAT_NEXUS 


Sete Ge Ge Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Se Ge Ge Ge Se Ge Ge Ge Ge Se Se Ge Fe Ge Fe Se Ge Ge Ge Ge Ge Ge Ge Gee Sete Ge 


> Macro FIXED_NEXUS. 
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INPUTS: 


00000000 
00000001 


00000001 
00000002 


00000000 
80000000 


FFFFFFFB 


SB1_CSR_LEN 
BI_CSR_LEN = 2 


SBI BUS CODE = 0 
BI_BuS_CoDE = *x80000000 


OOQOCOCOCOOOGOCOSOCCOOCOOSOSCOCCOOCSOOOOCOCOOOOOOCOOOOOOoOO 
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COOOOCOSOOOSOSOSOOOSOSOOSOSOOSCOOOSOOOCOOCOSOSOSOOSOOOSOOOOOOOOOOOOO 
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PHYSADR = physical address of 1 or more contiguous fixed nexus slots 
PERNEX = amount 9 address space per nexus 
NEXUSTYPES = a List of fixed nexus types, enclosed in <> 


Very FS hata PHYSADR,PERNEX=0 ,NEXUSTYPES 
= 


PA 

. IRP ba 3 3 NEXUSTYPES 3; For each fixed nexus type... 

[LONG <PA/*x206> : Store PEN. 

-LONG TYPECODE 3; Store fixed nexus type. 

PA = PA + PERNEX 3; Increment to address of next nexus. 


-ENDM = FIXED_NEXUS 


NEXUSDESC_TABLE = declare the beginning of a NEXUS descriptor table 


Ist byte in table (at offset -5 from Label) contains Length of 
adapter type code jrete in CSR's on this bus. CNote for SBI Like 
busses, this is 1.J] The next longword (at offset -4) in the 
table contains the Software defined bus type byte defined in the 
high order byte of the Longword. yiete for SBI Like busses, this 
value is 0, for the BI it is *x80. 


parameters that may be specified or used in macro invocation. 


0 BI Like bus. 
1 SBI Like bus. 


1 ; Length of Eype code field in adapter CSR's 
on SBI, CMI, et 


C. 
Length of type code field in adapter CSR's 
on Bl. 


Software defined bus code for SBI Like busses. 
Software defined bus code for the BI. 


E LABEL,BUS_TYPE=SBI_LIKE 
BI_LIKE 
“BYTE SBI_CSR_LEN 
“LONG  SBI~BUS~CODE 


-MACRO NEXUSDESC_TABL 
LIF EQ,BUS_TYPE-S 


LIFF 
LIF EQ,BUS_TYPE-BI_LIKE 
-BYTE ~ BI_CSR_LEN 
a “LONG BI ~BUS~CODE 
fot. .ERROR ; UNRECOGNIZED BUS TYPE, NEXUSDESC_TABLE; 
.ENDC 


-ENDM NEXUSDESC_TABLE 


CSR_LEN_OFFSET = =5 ; Offset before nexus descriptor of 


; byte containing length of adapter 
; type field in adapter CSR. 


pape yso 
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FFFFFFFC 


: Macro END_NEXUSDESC. 
5 MACRO END_NEXUSDESC 
“ENDM — END_NEXUSDESC 


4 
4 


? 


0 
6 


1 


9: 


41 crite Macro v04-00 Page 
1 SYSLOA.SRCJINIADP.MAR;3 


Offset before nexus gescriptor table 
of longword containing software 
ned bus type to be or‘ed with 
adapter type to produce NDT$_ value. 


; PFN=0 => end of nexus descriptors. 
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; -SBTTL Adapter-specific data structures 
; Put a symbol for arrays built by macros in the correct psects. 


[eeeeeeeeeeeeerees ADAPTERS array **tteneeneane 
-PSECT SSSINITSDATAO 
ADAPTERS: ; Build adapter type code arrays here. 


~-PSECT S$SINITSDATA1 ; User contributions in this .PSECT. 
; End of ADAPTERS array. 
peeeeeeeereeeeeeee End of ADAPTERS array tttteneeneeee 


;eeeeeeeeeeeereeee NUM PAGES array ttteteennnene 


-PSECT S$S$INITSDATA2 
NUM_PAGES : 3; Build ‘number of pages to map’ array. 

-PSECT S$SINITSDATA3 ; User contributions in this .PSECT. 
peeeeererereretere End of NUM_PAGESarray RHEKKAEKKERES 


peeaneeeeeeeeeeeee INIT ROUTINES array ttkeeretenane 
-PSECT SS$SINITSDATAG 
INIT_ROUTINES: ; Build ‘‘address of init routine’ array. 
«PSECT SS$SINITSDATAS ; User contributions in this .PSECT. 
peeeeeereeeereeere End of INIT_ROUTINES array **eeeenrennee 


: To add a new adapter type: 
: 1) Add a new ADAPDESC macro invocation to the end of this List. 
. .PSECT $$$INITSDATA,LONG 


; RPBSW_ROUBVEC is zero. If RPBSW_ROUBVEC is not zero, then RPBSW_ROUBVEC 
; is used and this erray si 
: AY ale RPBS$L_BOOTRO is set by VMB to contain the device name in 


OOTVECTOR: 


oo 
oo 
>. 


: sap tah Interrupt vector 
RLO1/2 Interrupt vector 


BUS_CSR_LEN: 
BY 


Static byte containing the Length (in bytes) 
“9 CSR's of 


of the adapter type field in the 

the bus currently being configured. The 
proper value for the bus of interest is 
copied here, from the current nexus 
descriptor table, when we enter subroutine 
CONF I1G_IOSPACE. 


Static longword containing the software 
define) bus type, of the bus currently being 
configured, in the high order byte. The 

roper value for the bus of current interest 
s copied here, from the nexus descriptor 
table, when we enter subroutine 


SW_BUS_CODE: 
. LONG 


Sete e+ Ge Se Ge 
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Adapter-specif 
, ee 
Bog a89 
235 
4 
00000000 9 46460 
0000001 00 p te) 
titdait ts 00D 103 
S D 4644 
D 445 
00D rt 
it 44 
i) 28 
000D 44 
000D 450 
000D 457 
000D 126 
0000 45 
44 454 
00D 455 
444 $2$ 
00D 45 
000D 458 
000D 459 
000D 460 
000D 86 461 
000D 46 
44 46 
0 464 
83 465 
0 466 
00 467 
000 468 
00 469 
00 470 
00 471 
000 $76 
0 47 
0 474 
0 475 
0 $76 
0 47 
00D rth 
47 
480 
a3 
188 
484 
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DIRECT_VEC_NODE_CNT: 
.LONG 0 


SSSVMSDEFINED = 1 
NUMUBAVEC = 128 


APDESC - 


Ep=19be 1o:29:18 


AX/VMS 
SYSLOA.S 


CONF IG_IOSPACE. 
Static longword that counts the number of 


direct vectoring adpater nodes that we have 
run across so far. 


0 V04-00 


Page 
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Define symbol that means VMS system software. 
ALLOW FOR 128 UNIBUS VECTORS 


** MUST BE 1ST IN DESCRIPTOR LIST ** 


AD ; Memory. 

ADPTYPES=<NDTS, Wem 664NINDTS OMEMGNI .NDTS_MEMGI ,NDTS.MEMIONI, = 

NOTE. pened NDTS_MEMGGEIL,NDTS_MEMG4NIU,NDTS_MEM6GEIU, = 
NOTS- Renesoia, NDT$_MEM256EIL,NDTS_MEM2S6NIU,NDTS_MEM2S56E1U, = 


NDTS"SCORMEM> = 
NUMPAGES=1 


ADAPDESC - MASSbus. 
~ thet  hhe me’ 


GES 
TNITRINSINE SMBADP 


ADAPDESC - UNI bus 
ADPTYPES=<NDT$ _uBOUN NDTS” _UB1,NDT$_UB2,NDT$_UB3,NDT$_BUA>, - 
NUMPAGE S= 

INITRTN= INI SUBSPACE 

ADAPDESC - ti-port memory. 

ADPTYPES=<NDTS_ nbmo- NBTS™ MPM1,NDT$_MPM2,NDTS_MPM3>, - 


THT TR TS INE SHPMADP 


ADAPDESC - DR32. 


ADPTYPES=NDTS_ pri2- 
NUMPAGES=4 
INI TRIN= INI SDRADP 


ADAPDESC - C1780 
phe | ge NDTS r= 


AGES 
WNITRINSINESCIADP 


Koz11 Processor 
ADPTYPES= =NDTS _xoiit, 


PAGES=1 
INITRINSINESKDZ11 


ADAPDESC - 


IN 
v0 


INIADP730 
v04-002 


= ADAPTER 
CPU-specif 
D 
D 
) 
) 
D 
D 
D 
D 
D 
D 
D 
0258 8 D 
OOF 
OOF 
OOF 
OOF 
OOF 
014 
014 
014 
014 
014 
00009000 0014 
00000000 0014 
Bate 
014 
0014 
Q01C 
001C 
O1C 
O1C 
094 
009 
09 
09 
09 
09 
09 
09 
9 
09 
09 
9 
9 
9 
00000040 > 
00000008 : 
00000108 90 
000002D8 01D 


NITIALIZATION FOR VAX 1/530 


16-SEP-1984 00:51:4 AX/VMS Macro v04-00 P 1 
¢ data structures 1%: sats 7 Seat USYSLOA. SREDINIADP MAR; 3 eet 8) 
3 -SBTTL CPU-specific data structures 


CPU_ADPSIZE: 
4 «WORD 


To add a new CPU type: 
1) Create a new 
FIXED NEXUS macros. 


ADPSC_UBAADPLEN 


“nexus descriptor table, using FLOAT_NEXUS and 


Put an END_NEXUSDESC macro at the end. 


98 ; Declare the beginning of a nexus-descriptor table. 


600 * NEXUSDESC_TABLE LABEL=NEXUSDESC 


SBI _CPU 
B1 CPU 
FIRED_N 


MAXNEXUS = 64 

CONFREG: 
.BLKB 

SBICONF : 


-BLKL 
CONFREGL: 
-BLKL 


NNN INN SIN NNIA AA AAAAAAAAAAOH 
MN 3 BQO Ss SS OOOO 
OOO NOUN EWI 0 DONANVOONUE WN OOOO 


FLOAT_NE 


= 0 
= 0 


EXUS = 


604 ; Describe all nexuses on an 11/730 processor. 


PHYSADR=10730$AL_IOBASE, - 
NEXUSTYPES=NDT$_PMEM64NIL 


XUS 


eT ERO Rs [OF SOOM. IOBASE C19 ISTIOEM,_PEMED, * 
NUMNE X=1 


PERNEX=10?30SAL_PERNEX 


END_NEXUSDESC 


MAXNEXUS 
MAXNEXUS 
MAXNEXUS 


Nexus ‘‘descriptor’’ arrays -- these arrays hold the nexus-device type and 
virtual address of every adapter on the system. The arrays, CONF 
SBICONF, are allocated enoug 
that can be attached to any CP 
actually exist on the system, it will allocate epece trom non-paged pool 
and move a permanent copy of these arrays into t 


GL and 
space to hold the maximum number of adapters 
U. When the code discovers how many adapters 


at space. 
; Byte array of nexus-device type codes.. 


; Longword array of VAs of adapter space. 
; Longword array of nexus-device type codes 


INLADP730 
v04-002 


00000008 


2D 54 49 4E 49 43 45 5 45 25 OA OD 
65 69 63 6 66 66 7 $f 49 20 46 
69 72 74 6E 65 20 54 5 20 4 6f 
00 OA OD 73 6 

20 54 49 rt 49 43 45 58 45 : A 0D 

65 6D 33 55 42 49 gf 46 
4 6F 6E 20 73 65 6 64 20 79 72 6F 
OD 30 20 74 61 20 74 72 61 74 g3 20 


oO 


WR—DOO™"MICIT0090 
NOD = 20OF 


= ADAPTER INITIALIZATION FOR VAX 8/330 
Message strings 


139 BADUMR : 
731 


AX/VMS Macro V¥04-00 


19-36-1386 O:3h'4) 
11-SEP=1 :18 (CSYSLOA.S RCD INIADP.MAR; 3 


-1984 16:29:1 
-SBTTL Message strings 


eASCIZ <CRO<LF>/ZEXECINIT=F-Insufficient SPT entries/<CR><LF> 


eASCIZ <CR><LF>/ZEXECINIT=F-UNIBUS memory does not start at 0/<CR><LF> 


IN 
ve 


INIADP730 
v04-002 


> 
, dam 


ATION FOR VAX 4/330 16-SEP-1984 00:51:41 VAX/VMS M v04-00 P 1 
it and map nexuses 19: Het? 90:30:48 SYSLOA.SR RED INI YADP MAR; 3 ete (3 


-SBTTL INISIOMAP, Initialize and map nexuses 


FUNCTIONAL DESCRIPTION: 
This routine is executed only once, during aster on isvot teat ten. 


—F 
=z 

—> 
PO 
—> 
$3 
es 
—Zz 


) 


It loops through all nexuses on the ce testi ng te 
edeorers. When it finds an adapter, it maps its 1/0 spece and 
initializes it. 


INPUTS: 
BOOSGL_SPTFREL = next free VPN 
MMGSGL"SPTVASE = base of eyetes page table 


EX esac RPB - address of reboot parameter block 
RPBSL_ADPPHY(RPB) = PFN of boot adapter space 
OUTPUTS: 
RO = SS$_NORMAL 
For each ey “iy found, its accessible I space is mapped to virtual 
addresses n ADP (Adapter Control Block 3 built, and the hardware 


adapter is initialized. 


| 
ee 


hey arrays CONFREG (a b oxte array of nexus-device oe codes, defined 
by NDT$_ symbols) and SBICONF (a Longword array ¢ 

: rtual addresses that map adapter space) are initialized. Pointers 
to these ocraye are stored in EXESGL_CONFREG and 

MMGSGL_SBICON The number of entries in these two parallel arrays is 
stored in EXESGL_NUMNEXUS. 


Since BI devices have a 16-bit device type code, a new CONFREG array is 
constructed. This is a longword array called CONFREGL. 


NNN SSSI OO 
PEAAIAD AAAI BE EE AAA et 
OQOBNAMEWNOONUEWRHOOCDNOUE ae 


76 


DOSS OWWWAWIUAIWIN AA AAA AIA AIAN AAAI WIN AIAN NIAAA NANA AAAI 


Onerrr SOOO OWWWAWAIWIAIAWAN AAAI AWA AA AWWA AANA NAINA AANA 
“ 
oa 
uw 


OOOO OCOOCOOO OOOO OOO OOOO OOOOCO CO OCOOCOC OOOO OOCOCOOOOOOOOOOOOOoOO 
COOSOSOCSCSCSOSSOSOSOWWWWINIAIWIAN AAI AAAI AAAI AI NAIA AAIAI NAAN AANA AAAI 


76 
res Several Locations in the RPB that describe the boot device are init'ed: 
£68 RPBSL_BOOTR1 - to Bt index into CONFREG and SBICONF for the boot 
59 RPBSL_ADPVIR - holds vA of boot device adapter's register space 
re RPBSL_CSRVIR - holds VA of boot device's register space 
77 
0000 774 -PSECT SSSINITSCODE , QUAD 
of? INISIOMAP: : 
OFFF 8F BB 109 PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
444 : fet up common inputs to CONFIG_IOSPACE subroutine for the CPU-specific code. 
58 90000000 GE DO 781 ° MOVL  G*BOOSGL_SPTFREL.R ; Get next available VPN. 
5 O000000'GF D0 7 § MOVL G*MM 5g “SPTBASE,R ; Get base of ee Page Table. 
5 os6 p 1 7 MOVAL (R3)CR2)7R3 ; Compute SVASP 
52 52 1 784 ASHL #9,R2,R 3; Convert VPN to VA. 
52 80000000 f C8 1A f Bist avASh SYSTEM,R2 : Set system bit. 
59 opg000 "GF , SERS VL XESGL_RPB,RO : Get address o 
SC A 9 8F A ft ASHL cf RPaSE ~ADPPHY (R9) R10; ont PFN of ,doot adapter space. 
"GF pO EE DE 8 791 MOVAL wW*SBI MMGS$GL_SBICON F Set poi nters to local copies 
‘GF 98°CF ODE O86 MOVAL U* CONF REG. “GrENESGL CONFREG : of these arrays for init’ routines. 
"GF 1D8"CF ODE 42 79 MOVAL W*CONFREGL,G*EXESGC_CONFREGL ; ... 


Clear index into. CONFREG and SBICONF. 


Spee 
ina 4 Sa = ADAPTER ae 48N FOR VAX 11/530 } sci: 90: 3}: *} AX/VMS Macro V04-00 Page (8) IN 


INITADP_78 and _UV1 11-SEP=1 SYSLOA.S JINIADP.MAR; 3 3) vO 
rt $ 9 -SBTTL INITADP_780, 730, and _Uv1 
48 ? : 1/0 address space for the ‘1/700. 11/750, 11/730, and Micro-VAX I cpus 50 
is 4 § i is statically defined in their respective nexus descriptor tables. 
56 OO14'CF ODE 4 302 : MOVAL W*NEXUSDESC,R6 2 Set address of nexus table. 
5B (4 5 4 'F4 CLRL R11 : $i gnal use Ist page of SCB. 
0B 10 bee Ono BSBB CONF I1G_IOSPACE : Configure processor I/0 space. 
54 909 
00c3 30 a54 910 BSBW pe Ad ARRAYS ; ¢r reate Comet and SBICONF arrays. 
= 4 BA ee 911 POPR #*M<ROTR1,R2,R3,R4,R5, R6, R7,R8B,RI,R10,R11> 
0 1 00 B aig 
05 OOSE 91 


MOVL #1,R0 3 Set et ele, status 
RSB ; Return. 


INILADP730 = ADAPTER INITIALIZATION FOR VAX $1530 16-SEP-1984 00:51:41 AX/VMS Macro V04-00 P 14 
you-002 CONF I1G_IOSPACE 19-$E5=1 3b 90:30;4g LEYSLOA. SRETINYADP MAR; 3 hes (9) 
f $f ; -SBTTL CONFIG_IOSPACE 
F 18 : CONFIG. IOSPACE 
F 19 ; Given a nexus descriptor table, which describes what ‘‘nexuses"’ or 
5F 9 ; slots’ are available on a system to hold I/0 adapters, find and 
2 : initialize all adapters on the system. 
ee é : Inputs: 
SF 924; R2 = next available virtual address, to be used for mapping I/0 space 
SF 925 R35 = address of PTE associated with VA in R 
a § 3 R4 = Current index into CONFREG and SBICONF arrays (should be 0 the 
ber | 3 first time CONFIG _IOSPACE is called) 
SF 8; R6 - address of nexus descriptor table 
OSF 929; R9 = address of Restart Parameter Block (RPB) 
OSF 930; R10 - PFN of boot adapter space 
Baer 931 ; R1l1- page offset from beginning of SCB; tells which page of the SCB 
Oper 4 § : to use for this set of nexuses (passed to routines that init ADP) 
i 934 : Outputs: 
OSF 935; R2,R3,R4 = updated 
OOSF 936; R9.R1IO,R11 = preserved; all other registers potentially modified 
OOSF tt4 : CONFREG = initialized with adapter NDT$ code for each nexus 
boar oa6 : SBICONF = initialized with adapter space VA for each nexus 
O09 ae CONF IG_IOSPACE: 
O03 943 : Main loop. Map and initialize ali adapters on system. 
gr ase 
FB A6 «690 OOSF 951 MOVB CSR_LEN_OFFSET(R6),- ; Move Length of adapter type field 
0004 'CF bbe 326 w*BOS_CSR_LEN ; in CSR's to static location. 
FC A6 DO 006 95 MOVL BUS _CODE_OFFSET(R6),- ; Move software defined bus type code 
0005'CF p068 328 W*SQ_BUS_ CODE ; to static longword. 
0068 956 NXT_NEXUS: ; For each nexus... 
58 86 00 0068 957 MOVL (R6)+,R8 ; Get PFN of nexus. 
01 12 s13 959 BNEQ TEST_NEXUS :; If PFN non-zero, go test the slot. 
05 8054 44 RSB :; If 0, we've found all nexuses. 
$1 962 ; Read configuration register to determine if anything is present at this 
ESF Tepe 
071 965 TEST_NEXUS: 
a 66 BISL3 M#PTESM_VALID!PTESC_KW,- ; Temporarily associate VA in R2 with 
77 6 R8,(R ; PFN in RB via SPTE in R3. 
143 968 SPRICTINI 8°10$ Protect following code from non- 


969 #<MCHKSM_NEXM! MCHKSM_LOG>; existent memory machine checks. 
970 pov (ne) R1 


; Read adapter configuration register. 
TCTEND 10$ 4 : . 


: End of protected code. 
3f§ NVALID Re ; Clear TB of temporary sepping. 
4h BLBS RO,GET_TYPE ; Branch if no machine check occurred. 
379 : No adapter present at this nexus. 
379 
44 
97 


CLRB W*CONFREGCR4] ; Store ‘‘unknown"’ type in CONFREG 
also. 


90000000 8F C9 
63 58 
51 62 00 


~O 10. 000000000900 00 00 


OL RNANAWHBOOOW 


Cooooo 


CLRL W*CONFREGLCR4) 3 and in CONFREGL 
CLRL R5 ; Use general memory type to map 


MOVAL W*ADAPTERSCR5],RO 
PUSHAB W*NUM_PAGES 

CMPL RO, (SP)+ 

BGEQU END_NEXUS 

CMPL R7, TRO) 
BEaL 46-40 
INCL RS 

BRB 30s 


co 

m 
MOOoVinMIonf!| ww 
OVislnVroOMNmmN WVs~ 
Tere TELE TEre rere rererary 


OOCOoooooooooo 


; unrecognized adap 


241 ten Macro V04-00 Page 15 | 
:18 (CSYSLOA.SRCJINIADP.MAR; 3 (9) | 
one page of 1/0 space. | 


Step past type code in nexus table. 
Go map 1/0 space for this nexus. 


present. 


Get nexus-device type from nexus table. 
Branch if fixed slot. 


s 8-bits or 16-bits. 


; Determine Length of adapter type 
eld i 


n CSR contained in R7. 


; EQL sagt tes 1 byte (8-bit) field. 


BI_LI so use word instruction. 


; Skip byte instruction. 
; Use byte instruction to get type. 


Or in software bus code. 
with software bus code. 


; Translate specific nexus device type code into general adapter type code. 


Save nexus-device type in CONFREG. 
CONFREGL also filled in. 
Clear loop index. 


Get address of adapter type code. 
Push addr of end of ADAPTERS array. 
See if we went ao ag array. 

er, do not map. 
rT Bae’ type match? 
If EQL yes, adapter type match. 
Increment loop index. 
Look at next adapter. 


Does PFN match boot adapter's PFN? 


4 
INIADP730 = ADAPTER INITIALIZATION FOR VAX 11/330 16-SEP-1984 751 
v04-002 CONF IG_IOSPACE 19-SE b=} 382 90:34 
9B 3 
56 4 9B ADDL2 #4,R6 é 
5 ‘9 ? BRB MAP_NEXUS : 
. 3 ; Execution continues here if adapter was 
AQ 987 GET_TYPE: 
57 86 9 A 9 MOVL (R6)+,R7 ; 
“4 A 99 BNEG § GET_GEN_TYPE : 
A 992 : Floating-type slot. Use type from confi ures ten register. 
: 38 ; Determine if type in configuration register 
OA 995 ° 
0004'CF 01 a a 4 CMPB #1,W*BUS_CSR_LEN 3 
05 13 SOA 99 BEQL 108 : 
ae 3C OOA 99 MOVZWL R1,R7 : 
03 11 OOAF 100 R 20§ ; 
57 1 9A 00B 001 10$: MOVZBL R1,R7 3 
4 38 20S: 3 
57 0005'CF c8 bee 3 : BISL W*SW_BUS_CODE,R7 : 
i 09 : Here R7 has hardware adapter code or'ed 
008 008 ; 
008 009 GET_GEN_TYPE: 
0098'CF44 90 08 01 MOVB R7,W*CONFREGCR4) 
01D8'CF44 DO 008 01 R7,W*CONFREGLCR4] 
D4 8 01 RS 
5A Hh D1 o CMPL R1 ; 
1 if} BNEQ §§ MAP NEXUS : 
60 Ad 52 ) MOVL R »RPBSL_ADPVIR(R9) ® 
20 Ad 54 dO MOVL R oR EOS POOTR! (9) z 
51 5449 OD 00 EF EXTZV 0,#1 - 3 
RPGS ESRPHY(R9),R1 : 
58 AD = 1000 C241 9E MOVAB <8#512>(R2)CR1 - 5 
RPBSL_CSRVIR(RIS ; 


DODOODOONINO DLV TNH HH HOD OL $F NNT OOOOVOVO LS fy 
em ee ee em ee ed ed ed od wd dd SS 8 2 — 5 od 2 3 2 


OOOOCOCOCOOOCoOoooO 


RW RRM HHH HMMMMMoOCVCVCVTVTVTVVTVTVIOOOoO 


No; continue. 

Store VA of boot adapter space. 

Store boot adapter nexus number. 

Get offset into UNIBUS/QBUS 1/0 page. 


Set VA of UNIBUS/QBUS registers. 


> RS/ general adapter type; index into ‘‘general’’ adapter arrays. 
; For each adapter - 


INIADP730 = ADAPTER INITIALIZATION FOR VAX 1/330 16-SEP-19 141 VAX/VMS © V04-00 Page 1 IN 
raat CONF I1G_IOSPACE 1%: Het 92: 34; :18 Heys SYSLOA SINIADP.. MAR;3 ° (8) vo 
Fo 4 tg 3 Map the # of ages specified in ADAPDESC macr 
; } 27 ; SB to initialization routine specified in ADAPDESC macro 
F9 1045 MAP_NEXUS: 
gps cree 2 0 F9 105 MOVL R2,W*SBICONFCR4] ; Save VA of adapter space in SBICONF. 
1 O00'CF4 ‘ FF 105 MOVZWL  W*NUM PAGESCR5),R1 3; Get number of pages to map. 
6f 1 ; 105 BSBB AP_P 3 eee the I/0 pages 
51 O000'CF4 D 1 105 MOVAL wW* Bat -ROUTINESCRS5J,R1 ; Get address of initialization routine. 
61 OD 10D 1054 TSTL 3 pees ter ieee ces routine specified? 
oo 7 10F 1055 BEQL ERD. ye: ¥S ; Branch if n 
00 8141 16 O171 1 § acRT)CRr : Call initial ization routine. 
115 1 END_NEXUS: 
e 6 11 1 5 INCL RG ; Increment CONFREG and SBICONF index. 
FF51 ir : $7 BRW NXT_NEXUS ; Go do next nexus. 


> 

Po +) 

a4 
OGOCCCCOCOCOCOOOOCOCOOOCCOOOOOoOOO on 


oo 
mo 
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o 


woo IT oOOoI®W 
Swemomnoe 


he a ae) ne eee) we we ew ww wlan lala lololalolelelolelelelelololelelelelolelalelalol ola) 


tt tt tb tS Ss SS Ss SS Ss SS ss Ss SS YS a 1 YS 


NNN NAAAMUMUMIUIN SE & NAIA PIPPIN) 2 SS 


MOVIMO UI 
mM a SV PPLE 


COowouyp 


moONCIOFOW 
ee ee ed aed dd ed dd 3 dd 2 SS 2 dd dd 3 —) 3 
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2 Ss 2 DOO OOO CCO 


0 
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NITIALIZATION FOR VAX 14/330 16-SEP-1984 
11-SEP-1984 
6 .SBTTL CREATE_ARRAYS 
; CREATE_ARRAYS 
71: 
; ; Inputs: 
735; R4 = Number of nexuses on the sy 
ie ; CONFREG and SBICONF have been in 
7 : Outputs: 
8 5 RO = R5 destroyed 
a8 
oT 3 EXESGL-NUMNEXUS contains the number of nexuses on t 
§ EREATE_ARRAYS: 
4 MOVL RG GPEXESGL NUMNE XUS 
5 MOVAL 12(R4)CR4),R1 
7 MOVAL (R1)CR4),R1 
8 BSBW ALONPAGD 
89 CLRQ = (R2) + 
90 MOVW =R1,(R2)4 
91 MOVW = #<DYNSC CONE B> !DYNSC_ init, 
3 MOVAB ne Rua CONF 
9 MOVAB (R2)ER4],R1 
94 MOVL RI GrAMGSGL $B I CONF 
95 MOVAL (R1)CR4J,G*EXESGL "ton Regt 
3% PUSHR #*M<R2,R4> 
9 MOVC3 Ri We CONE REG, (R2) 
38 POPR #*M<R2,R4> 
9 MULL3 #4,R4,R1 
00 MOVL. R1,-($P) 
01 MOVC3 R1,W*SBICONF, (R2)CR4] 
08 MOVL. (SP)+ 
03 MOVC3 R1,W*CONFREGL, (R3) 
05 
6 
07 RSB 


stem 
itia 


1:41 VAX/VMS Macro v04-00 P 
9:18 [ESYSLOA.SRCJINIADP.MAR:3 9 


Move the local CONFREG and SBICONF arrays into non-paged pool. 


alized. 


EXESGL_CONFREG Ypoints to a copy of the CONFREG array in non-paged pool 
MMGSGL"SBICONF points to a copy of the SBICONF ores in non-paged pool 
e 


system 


Store number of nexuses on system. 
Allocate n bytes for CONFREG plus 
4n bytes for SBICONF + header 
Another 4n bytes for CONFREGL. 

Get pool for CONFREG and SBICONF . 
Se rm ues 


t in 
€R2)* : Set type and subt 
; Store address A system C CONFREG. 

Two steps to CONFREGL, Ist, SBICONF, 


Store address of system S SBICONF. 


$i i. address of system PON REGL. 
= pees address ae nexus count. 
Copy, ONFREG to pool. 
Retrieve pool atiress and nexus count. 
Number of ares, in in CONF. 
gave. SBI CONF otee | : Ot ONFREGL size 
opy SBICONF to 

Ree ore size of BI CONF and CONFREGL. 
Copy cour net to pool. R3 is output 
from SBICONF MOVCS5, so SBICONF and 
CONFREGL must be adjacent. 


INIADP730 = ADAP 
v04-002 


MAPLP INITIALIZATION FOR VAX 1/330 SEP=- 1384 90: 3: *} AX/VMS Bae o V04-00 Page 18 


SEP=- 6: SYSLOA.S JINIADP.MAR; 3 (11) 


>v 
a- 
mrn 


-SBTTL MAP_PAGES 


INPUT S: 

R1/ Number of pages to map. 
R2/ VA of page to map 
R5/ VA of system page “table entry to be used. 
R8/ PFN of page(s) to map. 


OUTPUTS: 
R2,R3 updated; R1,R8 destroyed; all other registers preserved 


MAP_PAGES: 
83 58 90000000 8F C9 BISL3 #<PTESM_VALID!PTESC_Kw>, RB, (R3)+ 
3 Map a page. 
38 D6 NCL R 3; Next PFN. 
52. 0200 € 9E MOVAB 512(R2), 3; Next VA. 
QOO00000'GF 06 INCL G“BOOSGL_SPTFREL ; Next free entry. 
00000000'GF  Q0000000'GF 01 CMPL G*BOOSGL_SPTFREH, - ; Check for no more system page 
GOBOOSGL SPTFREL ; table entries 
% 15 BLEQ ERROR_HACT ; Branch if out “of SPTEs. 
dB 51—s«F 5 SOBGTR RI, mAPY PAGES 3 Mee 8 another page. 
05 RSB ; done. 


ERROR_HALT: 


B 
ERROR_HALT_1: 
CLAL R11 : Indicate console terminal. 
JSB G*EXESOUTZSTRING ; Output error message. 
HALT aenxee FATAL ERROR teeeeee 


51 O2D8'CF 9 W*NOSPT,R1 ; Set error message. 


pw pe le lelelalelolelelolelelelelelelelelelelelolelel el alele) ola lo) 


Ok a 8 8 8 8 8 hh oh oh 
> FP OOO0000 008 


AOMM OOOWVUNWONS DW DW NWIWNIN NANA AANA OD 


SOWWNAMN EWN 0 OONOAUE WIN" O OONOU SW 0O0 


FP WWIWWIWIWIWIWIWIIRononononononononongd 2 2 3 3 2 


a sd — os = — 2s — >» — 9 — 2s 9 2 3 2) > — 9 9 2s ss 4) -s -s 
et  — — — 2s — 2s = 2 — > 4 2) ss — 2) — 2s 2) 9 — 3 2s 2 4 — 3 — 2s 2 2 2 2 2 


5B D4 
00000000 ' GF 48 


NITIALIZATION FOR VA é 1984 - 
eettamzarion ron vax Y/730 eases AOSHI) ROUEN NRSOhees POO AB 


-SBTTL INISUBSPACE 
Map UNIBUS space; initialize UNIBUS ADP. 


INPUTS: 
R2 - VA of next free system page 
RS = VA of system page table nag F to A ae are to map VA in R2 
R4 = nexus identification number of th ter 
-B8(R6) - PFN of this UNIBUS adapter's Bau Ry teed 


OUTPUTS: 
tH US §$ apace is mapped. 
ISUBAD called to build an ADP block and initialize UNIBUS 
ores hardware. 


Sete Ge Ge Ge Se Ge Se Se Se Sete Sete Ge 
: aa 


INISUBSPACE: 
58 O1D8'CF44 MOVAL W*CONFREGLCR4],R8 ; R8 => CONFREGL slot. 
58 68 0 00 F EXTZV 20-24. (25) RO 3; Get UBA number. 
= 6 «CDS 09 8 ASHL #9,R8,R8 : Position UB number. 


o 

m 
pole le leole lolol alelelelelelelelelelelolealelelelelelelololelelolelolel ole ol a) 
a a a kk a kk kk 
WWAWNIWIWIWIWIWID) 2 | 90000 OW WOOO NI NIN NINN NNO 


NOUS WN MOUND NA SOL UP -2 ONAN EW OOOO SU" 00 


58 OOOO7FFO 8F SB C3 SUBL3 R8,#<10730$AL_UB0SP+*0760000/*X200>,R8 
: Get PFN of UB 1/0 page. 
. 
-) ae | B MOVL #16,R1 3 uate of pages to map (UB/Qbus space). 
FFAF 30 : BSBW MAP_PAGES ; Map 1/0 pages. 

C? Call adapter initialization routine. 
C4 : BSBW —sINISUBADP ; Init ADP block. 
C4 1337; RSB 


fie 
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ITIA 
BUILD ADP AND INITIALIZE UBA 11-SEP-1984 SYSLOA.SRCJ INIADP.MAR; 3 
«SBTTL INISUBADP = BUILD ADP AND INITIALIZE UBA 


INISUBADP ALLOCATES AND FILLS _IN AN ADAPTER Sle BLOCK, INTERRUPT 
TO hs AND CONNECTS THEM TO THE PROPER SCB VECTORS. A CALL IS 


N MADE TO UBASINITIAL TO INITIALIZE THE ADAPTER HARDWARE. 
INPUT: 


R4 = nexus identification number of this adapter 
Rite offset from beginning of SCB to correct PScB page for this adapter 
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29 INISUBADP: 
26 ; PUSHR = #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8> ; SAVE RO-RB 
: 

i 
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O1FF 8F BB 


eg eh 
08 A2 51 B80 

, 
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; Allocate and initialize Adapter Control Block (ADP). 

, MOVZWL W*CPU_ADPSIZE,R1 ; PICK UP LENGTH OF ADP 
BSBW LONP ° 

MOVW R1,ADP$W_SIZE(R2) 


A 
ADP$B_TYPE(R2) 


Sete Ge @ 
wm 
wn 
m 
— 
2 
—4 
o 
Pd 
9 
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@ 
oa 
oO 
o 
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12 
: AND SET TYPE OF BLOCK 
#ATS_OBA ; SET TYPE OF ADAPTER 
appso a ADBTVPE(R2) 
: SET VA OF CONFIGURATION REG 
AD PEL CSR(R2) 
MOVW R4 ,ADP$W_TR(R2) ; SET TR NUMBER FOR ADAPTER 
MOVAL ADPS$L_DPQFL(R2),RO ; ADDRESS OF DATA PATH WAIT QUEUE 


MOVL RO, <RO) : INIT QUEUE HEADER 
MOVL RO,4(RO) ; 


OA A 01 90 
OE A2 01 80 
62 O0D8'CF44 DO 
OC A2 54 80 
50. 14 ae DE 
60 5 
04 a0 50 00 
50 60” 36 DE 


MOVAL ADPSL_MROQFL(R2),RO ADDRESS OF MAP WAIT QUEUE 


dO MOVL RO, (RO) ; INIT QUEUE HEADER 
04 00 dO MOVL RO,4(RO) ; 
04 a? & CLRL ADPSL_LINK(R2) ; ZAP ADAPTER CHAIN LINK 
FDFE* 30 BSBW ADPL INK ; LINK ADP TO END OF LIST 


; Initialize adapter interrupt vectors in System Control Block. 
: MOVL  G*EXESGL_SCB,R8 ; GET SCB ADDRESS 


; REMAINING ADP INIT FOR 11/730: 
a ta A: 


WIINING = = DODO CDCCCOCCCOO FR FFF HMMMMMMNODTT VIO OGAOMAOAOOOOOOOOOOOOOO 
LL ee ee ee ee eee ee eee SS | 


58 00000000'GF 00 
“10.42 DE 
0108" CF4 D1 
y 
10 A2 00000200 BF C 
604 es Be 
23 Go 
tte e 
D4 


X200(R8),- ; Q. 
ADPSL veCTOR«R2) ; VECTOR SPACE 

CMPL W*CONFREGLCR4J,ANDT$_UBO; IS DEVICE TYPE = UBO? 

BEQL 108 : BRANCH IF SO 

ADDL  #*X200,ADPS$L_VECTOR(R2) : ELSE STEP TO UB1 VECTOR SPACE 
10$ MOV) § #*XE,AOP$W_DPBITMAP(R2) : MARK DATAPATHS 1-3 AVAILABLE 

MOVL ADPSL_CSR(R ) RS + VIRTUAL ADDRESS OF ADAPTER 

MOVA UBA L7MAP(R3)<R : POINT TO MAP PING REGISTERS 

MOVZWL #496,R4 : NUMBER OF UMR TO DISABLE 
20$:  CLRL (R3)¢ : DISABLE A UNIBUS MAP REGISTER 


cP, 
ov 
> 
om 
un 


DP AND INIT IA AL 


eceatseiin’ 


Now check for an 
disable all the 
which memory will respond. 
Kb chunks, since eac 


ADPSL_CSR(R2) ,R6 
#512, B(SP), R7 
Aste, 2($F) 5h R4 


SDD DPV TTT TTI ES BB PW 


WOM NS NYVPIPIPIPINIPOPIPIPIPIPUNIPIPIPININY FO COUN 2 3 2 BOOUMU 


SoOoConronovIo7o 
SOOCOWWWEO 
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oO 
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#<PTESM VALID !PTESC_Ku>,- 
R4, (RBY 


OuMMMWUIW— DOO 


onrwoOo-9 -OMWwWe 


@ 
o 


R1, ADPSW_UMR_DIS(R2) 


; Initialize fields for new 
; that we have one cont 
To do this we set ADPS$L_ 


ce ec ec eee ee ee cee ee ee ee ee me ee a ed ed ed od 3d dd od dd 


SOOOCOOOOOOCOCOOOCOOCOCOSOOOCOOOOOCOSOOOSOSOOOCOOOCOOOOOOOOOOOOCOOOOOOOO 


: INIT UB VECTORS TO UNEXPECTED INTERRUPT 
ADPSL_VECTOR(R2) .RO 
#<NURUBAVEC- -1>,R1 


i IFrSEP=1986 98:29:48 ESYSLOR.SReStwlappcman:s 99° 7d, 
AL 


; LOOP THRU THEM ALL 
; GET ADDR OF UNEXP INT service 
(+1 MEANS HANDLE ON_INT STACK) 
: SPECIAL CASE TO COUNT PASSIVE RELEASE 


SERVICE 

GET ADDRESS OF VECTORS 
SPECIAL CASE FOR VECTOR 0 
REST OF VECTORS 

FILL VECTOR WITH UNEXP INT 
FILL ALL VECTORS 


that may be on the adapter. First ¥e must 
ters so that there is no conflict in 

Then we check all 248Kb of potential pag in 
disable bit on the 780 UBA represents 16 UMR 

The number of registers 
corresponding number withdrawn from the 


is stored in the ADP and che 
UMR map in the ADP. 


; Pick up adapter pointer 


: Zero out number of UMR to disable 
R7 = VA of Last page of UaipuS 
: RB = VA of SPTE mapping ( 


R7) 
; R4 = PFN of first sb3e° of UNIBUS 


; Save contents of 


3 ; Sopy starting g PFN 


b cones to test 
; Invalidate T 


; Rae each page of UNIBUS 
Address to check 
; Validate it 


; Not there 


; First time in? 
; Yes, skip next test 


; Any registers already? 
; No, memory not start at 0 
; Yes, up the 


: Map Next (BR Cis512) 


; Loo 


; Restore ol ¢.old contents of SPTE 


; Invalid 


; Record number disabled 


map register ? location. Make it appear 


available map registers. 
to one (the number of active 


ATION FOR VAX : 


ALIZ 1/ 
ADP AND INITIALIZE 
er 


IN L 
” LD 


= ADAPT 30 16-SEP-1984 00:51:4 AX/VMS Macro v04-00 Page 22 
INISUBA UBA 19-866} $82 9b:30:t8 USYSLOA. SREJINIADP_ MAR; 3 . (if) 
: geegriptors for distinct contiguous areas) 

; (6) to 496 (i.e the number of registers in this 

; gont iguous range) and ADPSFREGARY(0) to 0 (i.e. the first register 
3 n 


the range is register 0). 


I 
map roles 
ADPSW_FIRNREGARY 


MOVL #1, ADPSL_MRACTMDRS(R2) ; 1 active map Conceteter 

SUBW3 = R1,#496, ADPSW_MRNREGARY(R2); for a range of 496 registers 
MOVW R1,ADPSW_MRFREGARY(R2) 

MNE GW A th ated tant Bf ; Also init “‘fences’’ which preceed 
MNEGW #1,ADPSW_MRFFENCE(R2) ; the two descriptor arrays. 


* 08s 30 


MOVL ry, La ont ; Get CSR address to init 
OFF 8F BA 


BSBW UBAS ;_And initialize adapter 
POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8> ; Restore registers 
RSB ; Return 


: Error if UNIBUS memory not start at location 0 


80S:  MOVAB W*BADUMR,R1 : Set error message 


51 O301'CF GE 
FEC9 31 BRW ERROR_HALT_1 ; Put it out 


o oo 
— —_ 
MO 
Ornmon 
OPow,r 
horror 
—— + ~~» 

oO >rorvc 

w MMmoOowWo 
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I 

g 
4 

5 

! 
. 
: : Initialize adapter hardware. 
5 
8 
y 
Q 

§ 
4 

5 

6 
8 


—o et do st tt 


| 
; starting at register zero. 


R4 = nexus identification number of this adapter 
Rii=- offset from beginning of SCB to correct PCB page for this adapter 


OUTPUTS: 
ALL REGISTERS PRESERVED 


INIADP730 = ADAPTER INITIALIZATION FOR VAX 1/330 16-SEP-1984 00:51:41 VAX/VMS Macro v04-00 
v04=002 INISMBADP = BUILD ADP AND INITIALIZE MBA 19S Ee =1 3be 90:30: Th EEYSLOA. SRCJINIADP.MAR; 3 
.SBTTL INISMBADP = BUILD ADP AND INITIALIZE MBA 
-SBTTL INISDRADP = BUILD ADP AND INITIALIZE DR32 
.SBTTL INISCIADP = BUILD ADP AND INITIALIZE CI 
: INISMBADP IS CALLED AFTER MAPPING THE REGISTERS FOR A MASSBUS ADAPTER. 
: AN ADAPTER CONTROL BLOCK IS ALLOCATED AND FILLED. A CRB AND IDB AR 
: ALSO ALLOCATED AND INITIALIZED. THE ADAPTER HARDWARE IS THEN INITIALIZED 
; BY CALLING MBASINITIAL. 
: INISDRADP IS CALLED AFTER MAPPING THE REGISTERS FOR THE DR32 
; ADAPTER. THE ADAPTER CONTROL BLOCK D IDB ARE ALLOCATED 
; NITIALIZED. THE ADAPTER BARDUARE. Re THEN INITIALIZED BY 
; CALLING DRSINITIAL. 
t INISMBADP AND INISDRADP SHARE COMMON CODE AFTER THE TABLE OF ADAPTER 
> SPECIFIC CONSTANTS IS SELECTED AND STORED IN R8. 
: INPUT: 


Q0000000'GF 17 ALONPAGD : JMP G* INISALONONPAGED 


VSVVVOVVCVVVTVTCVVVCOVVCVCVCUCVTCUUTCTVTUVCVCCTCTT"0U0_C0_00 Um 
DD WWW DW WW DW DW DW HNN NAINA IIIT Oo 
— a ww 8 a ts SS 2 2) 2 a ss I a 8 


-ENABL LSB 
INISDRADP: ; INITIALIZE DR32 DATA STRUCTURES 
INISCIADP: ; INITIALIZE CI DATA STRUCTURES 
INISMBADP: ; INIT MBA DATA STRUCTURES 


INLADP730 
v04=-002 


i 


————-—+ 


INITIALIZATION FOR VAX 91/330 16+SEP=1986 00:51:61 VAX/VMS Macro v04<00 p 4 
1FasEprioee fessosia | LeNevas Sacco VORsOe ks Page %, 


1997 -SBTTL INI$KDZ11 
1838 : 
1999 ; 
0 ; INPUTS: 
13 Re - VA of next free system page 
§ : - VA of system page table entry to be used to map VA in R2 
? : R4 = nexus identit cation number of this adapter 
4 OUTPUTS: 
09 INIS$KDZ11: 
838 RSB ; Return to caller. 


Ta 


INI ADP730 = ADAP 


v04-002 INI rh ATION FOR VAX 1/330 1 ~$60-1986 00:51:41 YAXvMs Macro V04-00 


z 

data structures for co 11-SEP-19 SYSLOA.SRCJINIADP.MAR; 3 
eS -SBTTL INISCONSOLE, init data structures for console 

; FUNCTIONAL DESCRIPTION: 


peta 


This routine is executed ony once, during system initialization. 
It initializes the CRB and IDB for boot/console device. 


This routine is called from INIT. 


R INITI 
OLE, in 
pc 1 
pC 
BE 5039 | 
dC 4; 
4) $3 
Be 5089 
we 
43 re : INPUTS: 
DC 4g ; R3 ==> DISK [CLASS] DRIVER DDB 
DC 2043 : R4 ==> DISK ECLASS] DRIVER DPT 
6 DC 2044 : R5 ==> DISK ECLASS] DRIVER UCB 
DC 2045 : R6 ==> RPB 
02D¢ 046 : R7 ==> ADP FOR EITHER A REAL DISK OR A PORT 
O2DC 2047 : R9 ==> PORT DRIVER DPT (IF PRESENT) 
02D¢ 048 ; R10-=-> PORT DIRVER UCB (IF PRESENT) 
O2D0C 2049 ; 
gage et = 
020¢ 05 INISCONSOLE: : 
0 DC 093 -ENABL LSB 
66 A6 «091 «02DC 2056 CMPB  =—s- RPB$B_DEVTYP(R6),- ; BOOTING FROM CONSOLE BLOCK 
40 8F O2DF 2057 #BTDSR_CONSOLE ; STORAGE DEVICE? 
10 12 O2€1 2058 BNEQ BLD_CR > NO 
41534303 BF DO O2E3 2059 MOVL #*A7CSA/@8+3,- : YES, SET DEVICE NAME 
14 A3 Oe9 06 DDBST_NAME (R$) ; COUNTED STRING 
SE $88 
57 4 a 070 CLRL = R?’ : CLEAR ADP POINTER 
54 a5 01 BO O2ED 2077 MOVW  #1,UCBS$W_UNIT(RS) : SET UNIT NUMBER TO 1 
OD 11 O2F1 ore BRB FICL_CRB 
O563 507 
F > NOW BUILD THE AUXILIARY DATA BLOCK : 
0 F 7 I — AUXILIARY DATA BLOCKS (CRB,IDB) 
OOF A: BLD_CRB: 
58 10 a7 00 0 F3 2080 MOVL ADPS$L_CRB(R7),R8 - GET ADDRESS OF CRB IF IT EXISTS 
OE A? ~(01”—=sé=z1 F7 2081 CMPW  #AT$_OBA,ADP$W_ADPTYPE(R7); IS THIS A UNIBUS ADAPTER? 
13 O2FB 08¢ BEQL FILL-CRB ; , ALLOCATE CRB 
008A 31 O2FD 085 BRW 100$ + NO, CRB/IDB ALREADY ALLOCATED 
6 a8s FILL_CRB: ze 
00000000'9F 16 0 $ JSB QF INISALLOC CRB - GO ALLOCATE AND SETUP CRB 
24 A2 9F163FBB BF 00 6 20 MOVL #*X9F163FBB[CRBSL_INTD(R2) ; SET PUSHR #*M<RO,...R5> 
OE 0 § ; JSB a#0 INTO INTERRUPT DISPATCH 
38 A 7 00 MOVL  R7,CRBSL_INTD+VECSL_ADP(R2) : SET POINTER TO ADP 
2 p 1 : OVL R2,R8 ; SAVE CRB POINTER 
51 58 BF 63C 031 9 MOV2WL #<{DB$C_LENGTH+<8*4>>,R1: SIZE TO ALLOCATE FOR IDB 
00000000'9F = 7 1A 36 SB ay INI SACONONPAGED > ALLOCATE IDB 
BA2 51 8 0 209 MOVW R1, IDBS$W_SIZE(R2) - SET SIZE OF IDB 
AA 03 4 2094 MOVB #DYNSC_I06B,1DB$B_TYPE(R25: AND STRUCTURE TYPE CODE 
CA of 8 99 MOVL  R2,CRBSL_INTD+VECSL_IDB(R8) ; SET IDB INTO CRB 
66 A691 € 209 CMPB = RPBSB_DEVTYP(R6),- ; BOOTING FROM CONSOLE BLOCK 


INIADP730 
v04-002 

. 
50 O00000FO 8F "Bs At 


6 49 A 
48 AS 9FI63FBB 8F 


50 A 52 
ec B 1F 


31 
62 58 A6 


11 
66 A6 
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Q0000000'9F 58 A6 
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ALIZATION FOR VAX 4/330 16-SEP=1 
t data structures for co 1 


#BTDSK_CONSOLE 


ove xeset SCB,A*XFO,R 
NTbst (Ra) ( 


R2, CRBSL peivooecta., IDB(R 
#PRS CST 
acRBSL_ INfD+8(RB) 


RPBSL_CSRVIR(R 
IDBSL-CSR(R2) 
#BTDSR_UDA,- 
RPBSB “BEVIY P(R6) 
20$ 


RPBSL_CSRVIR(R 
a#B00SGB_SYSTE 

IDBS$L_ADP(R 
RPéu. ROUBVEC ( 
RPBS$B_DEVTYP(R 
W*BOOTVECTOR-2 


@ADPSL_VECTOR( 
CRBSL_INTD+2(R 


(RO) 


$B 
-DISABLE LSB 


“SEP=1 


(R6), = 


9 0:51:41 VAX/VMS Macro v04-00 Page 26 | 
198 90 30i%8 SYSLOA.SRCJINIADP.MAR; 3 ° | 

STORAGE DEVICE? 

YES, GET ADDRESS OF VECTOR IN SCB 

SET ADDR IN st VECTOR 

SET ADDR IN 2ND VECTOR 

); STORE PUSHR #*M<RO...R5> 

; JMP a# IN 2ND INT. DISPATCH 

8): STORE ADDRESS OF IDB IN CR 

STORE IPR NUMBER OF CONSOLE INTERFACE 

REGISTER AS DEVICE CSR ADDRESS 


SAVE BOOT DEVICE CSR ADDRESS 
IN INTERRUPT DISPATCH BLOCK 

LOW ORDER BYTE OF ORIGINAL “RO TELLS 
BOOT DEVICE TYPE. 

IF NOT BOOTING FROM A UDA BRANCH 


AROUND. 
COPY VIRTUAL ADDRESS OF UDA PORT CSR 
TO LOW ORDER LONGWORD OF SYSTEMID 


; POINT IDB TO A 
; GET USER SPE 


PIED VECTOR 
a. SPECIFIED 


YPE CODE 
ERRUPT ve ron 


; ADD OF VECTOR 
; SET ADDR OF INTERRUPT VECTOR 


BACK TWO BYTES TO PUSHR, +1 TO 


; RETURN 


J 


ne OUa¥AesHY(Z20, JECSEPCTOBE 90:51:4 ESYSLOA.SREJINIADP.MaR;3 "9 (95) 


~SBTTL EXESINI_TIMWAIT = COMPUTE CORRECT TIMEWAIT LOOP VALUES 
FUNCTIONAL DESCRIPTION: 
XESINI_TIMWAIT watetet tous EXESGL_TENUSEC and EXESGL_UBDELAY, cells used 
n the Eime-wait macros, The first data cell, EXESGL-TENUSEC, is o faen number 
of times the following loop will be executed in ten yeseconds. 
done once here to cal brate the loop instead of readin e pr sacneay clock. 
The resulting number is used in the system macros TIME alt and TIMEDWAIT. 
The first gtee 72 to initialize EXESGL_UBDELAY. If the bit test instruction 
in the TIMEWAIT macro is executed too rapidly in a Loop, it can saturate the 
Unibus. FxEsoL LU UBDELAY is used to introduce a 3 microsecond delay loop into 
the TIMEWAIT bit test Loop. 
This routine is called only once, from INIT. 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 


nen er oer processor clock. 
Interval timers. 


OUTPUT PARAMETERS: 
RO - Destroyed. 
IMPLICIT OUTPUTS: 


EXESGL_TENUSEC - set to appropriate value to make TIMEWAIT and TIMEDWAIT 
macros loop for 10 micro-seconds. 


EXESGL_UBDELAY - set to appropriate value to make TIMEWAIT and TIMEDWAIT 
macros loop for 3 micro=seconds in the unibus delay 


vornboe™ EXESIN 
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Loop. 
EXESINI_TIMWAIT:: : Initialize time-wait data cells 
ENABLE LSB 
19 00 ODA MTPR #0, #PR730$_NICR ; Initialize next interval count register. 
7E 90004620 8F p00 MOVL #20000 ,-(SP) ; # of times to execute timed loop. 

1 11 DA MTPR #*xii LWPRS. Iccs ; Start clock, no interrupts. 

; * * * start of $099 to time * * * 

FD 6E OFS 10s SOBGTR (SP),10$ ; Delay loop. 


: * * end of ‘saad to time * * * 
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INILADP730 = ADAPTER INITIALIZATION FOR VAX 1/330 16-SE 1: AX/VMS Macro Vv04-00 Pa 
beeb0> EXESINI_TIMWAIT = COMPUTE ooRy ECT TIMEWA 1$-8E- 198 9° +34; 18 SYSLOA.S SINIADP.MAR: 3 we (78) 
98 17 
50 1A 0B ze AI MFPR #PR730$_ICR,RO ; Read total time to execute loop. 
18 50 DA : § MTPR RO; ,#PRS ices hut off clock. 
00000000 ' GF 0000EA60 gf C7 O3A DIVL3 #6000 GYEXESGL _uavetiy; Calculate nunber of tines through 
0000000'G 06 A INCL G*EXESGL _UBDELA : loop to delay 3 microseconds. 
; 
19 00 ODA Bs 4} MTPR #0, #PR730$_NICR ; Initialize next interval count register. 
4 
50 0Q0004E20 8F D0 6 rf MOVL es7008 RO ; Number of times to execute test loop 
6E seat t dle dO D 4 MOVL sé UB ELAY. (SP) ; Get delay loop iteration count. 
18 11° ODA ce 8 MTPR gaft PPRS 1 ccs ; Start clock, no interrupts 
C7 29 - wee Start of | oon te time 
000003D5"EF 8000 BF B83 03C7 1 20$:  BITW #8 000,40$ ; Random BITx instruction to time 
03 ig DO 26 N 40$ 3; Random _conditional branch instruction 
FD 6E SOF Be 53 30$: SOBGTR (SP),30$ ; Delay 3 microseconds. 
EF 50 =F5 030 54 40$:  SOBGTR RO,208 > Loop 
8 D 55 ; **** End of loop to time 
D 56 
b3p8 5564 
50 1A obB 8 3 6 MFPR #PR730$_ICR,RO ; Read total time to execute loop. 
18 00 ODA DB %e MTPR #0,#PRS$_ICCS : — clock off 
BE D5 0 DE 7 TSTL (SPs p delay loop index off stack. 
00000000'GF 00030D40 BF § C7 E 74 DIVL3 #200000 o EnEseL _Tenusec’e Calculate number of times to 
00000000'GF D6 3 ef 5 INCL n0 #2000 _TENUSE ; execute the loop to kill 10 u-secs. 
O3F 89 
05 0 i 90 RSB 3; Return 
O3F 91 -DISABLE LSB 


| 
| 
INIADP730 - ADAPTER INITIALIZATION FOR VAX 14/330 SEP=1 :41 VAX/VMS Macro V04-00 Page 29 In 
v04-002 EXESINIT TODR = SET SYSTEM TIME TO COR 1 19-86-1382 98: 34; th YeYSLOA. SRCJINIADP.MAR; 3 . fa) | v¢ 
F 99 .SBTTL EXESINIT_TODR = SET SYSTEM TIME TO CORRECT VALUE AT STARTUP | 
F ? ; FUNCTIONAL DESCRIPTION: 
F j : EXESINIT_TODR SOLICITS THE CORRECT TIME FROM THE OPERATOR if NECESSARY, 
F 4; CONVERTS THE ascil RESPONSE TO BINARY FORMAT AND CALLS AN INTERNAL 
F 5: ENTRY POINT OF THE SSETIME SYSTEM SERVICE TO SET THE NEW SYSTEM TIME 
F $ : IN MEMORY WITHOUT MODIFYING THE CONTENTS OF THE SYSTEM DISK. 
F 8: IF THE TIME WOULD NORMALLY BE SOLICITED FROM AN OPERATOR, BECAUSE 
F 9: THE HARDWARE TIME OF YEAR CLOCK IS ZERO, THEN THE SYSGEN PARAMETER 
F 10 : “TPWAIT' IS CHECKED. IF IT IS ZERO THEN IT IS ASSUMED THAT NO 
F 1: OPERATOR IS PRESENT AND THE SYSTEM [S$ BOOTED USING THE LAST TIME 
0 F 1g ; ECORDED IN THE SYSTEM IMAGE. IF THE PARAMETER IS NON ZERO THEN 
F 13: THAT TIME IS USED AS THE MAXIMUM TIME ul? WAIT BEFOR ASSUMING THAT 
O3F 14: THERE IS NO OPERATOR AND BOOTING ANY WAY. IF THE PARAMETER IS 
0 F 13 ; NEGATIVE, THE SYSTEM WILL WAIT FOREVER. 
O3F 31 ; THIS ROUTINE IS CALLED ONLY ONCE, FROM SYSINIT OR STASYSGEN 
O3F 319 : INPUT PARAMETERS: 
O3F 3 1: NONE 
O3F 3 : IMPLICIT INPUTS: 
O3F 3 : TIME-OF-DAY PROCESSOR CLOCK. 
O3F 7 : OUTPUT PARAMETERS: 
O3F : : RO,R1 = DESTROYED 
O3F 1 : IMPLICIT OUTPUTS: 
03 § : EXESGQ_SYSTIME - SET TO CURRENT TIME IN 100 NANOSECOND UNITS SINCE 
3F 4; 17-NOV-1858 00:00:00. 
O3F 5; 
ne 
; 33 3 Stack storage offsets: 
00000000 03F 41 TTCHAN = *x00 > CHANNEL FOR TERMINAL (LONGWORD) 
9900 04 F 4¢ NAME = “X04 : STRING DESCRIPTOR FOR OPERATOR'S TERM 
00000C O3F 43 TMPDESC = *X0C : TEMPORY STRING DESCRIPTOR (QUADWORD 
0000014 O3F 44 INTIME = *X14 : INPUT TIME VALUE CQUADWOR D) 
000001C O3F 45 LINBUF = *X1C t INPUT LINE BUFFER (5 LONGWORDS) 
0000014 F 46 LINBUFSIZ = “X14 : (LENGTH OF LINE BUFFER IN BYTES) 
F 4 
F #8 ; PURE DATA 
F TERM. NAMADR: 
30 41 50 4F O3F ASCII \OPAO\ : DEVICE NAME FOR OPERATOR'S TERMINAL 
0000004 O3F TERM_NAMSIZ = TERM_NAMADR 
74 61 64 20 64 69 66 61 76 ee 9° 367 41 
65 6D 69 74 2F 65 0403 


MERR: .ASCIC. \inyattd date/time\ : 


= ADAPTER INITIALIZATION N FOR VAX 11/430 16-SEP-19 AX/VMS Macro v04-00 P 0 
EXESINIT TODR SET SYSTEM TIME TO COR 19-365. 138 99: 39; 18 SYSLOA.SREJINIA DP.MAR;3 — i) 
11 03F7 
409 5 TIMEPROMPT: 
54 4E 45 20 45 53 41 45 4 A ae ¢ H atte MT Reet O>/PLEASE ENTER DATE AND TIME (DD-MMM-YYYY HH:MM) / 
20 44 GE 41 20 28 4 41 ts 20 3 4 4 $ . . 
4D 4D 4D 20 4 44 28 20 43 p 49 54 04 
4D 4D 3A 48 48 20 20 59 5 ; 26 D 4 ; 
$0 80 4 430 58 NPROMPT=.-TIMEPROMPT=1 
i 35 
43D 2361 EXESINIT_TODR:: : SET CORRECT TIME 
430 236 SENABL E LSB 
g77c F 430 6 PUSHR bear? R3,R4,R5,R6,RB,RI,RI0> ; SAVE REGISTERS 
0 C2 0441 4 #4 12, §p ; SCRA cH H STORA 
56 SE) «=O (0444 2365 MOVL SP SAVE ADDRESS OF SCRATCH STORAGE 
04 A6 0460 «(9A (0447 66 MOVZBL aTeRM NAMSIZ,TTNAME(R6) : SET size OF OPERATOR'S TERM NAME AND 
08 AB FFAG CF 9 448 MOVAB  W*TERA_NAMADR, TTNAME+4(R daip ; PIC ADDRESS INTO TERM NAME DESC 
1¢ 00000000'GF 00° € 0451 6 BBS S*#EXESV_SETTIME,G*EXESGL_FLAGS,READTIME ; BR TO SOLICIT TIME 
sis 
uy rs 
50 1B 0B 0439 80 MFPR  #PR730$_TODR,RO : GET TIME OF DAY CLOCK VALUE 
45C 238 
59 00000000'GF 50 ¢3 045¢ es SUBL3 RO,G*EXESGL_TODR,R9 : GET TOD DELTA TIME (10 MS UNITS) 
09 1B 0464 9 BLEQU 5$ : BRANCH IF TIME IS LATER 
0083D600 8F 59 D1 0466 2390 CMPL Rd .#24460%60#100 ; CHECK FOR SETBACK OF ONE DAY 
06 1& 046D 2391 BGEQU READTIME : MORE, MUST SOLICIT TIME 
14 A670. (O46F 36 5$: CLRQ INTIME(R6) > NULL ARGUMENT FOR EXESSETIME_INT 
00c7 Ss 31 0472 3 BRW 200$ : RETURN TO CALLER 
47 3 READT IME: : SOLICIT TIME 
59 bs 47 490 CLRL sR : CLEAR A FLAG 
58 00000000'GF 32 0477 2401 CVTWL  G*SGNSGW_TPWAIT,RB : PICK UP TIMEOUT WAIT INTERVAL 
14 14 OQO47E 24 : BGTR $ : POSITIVE, WAIT THAT PERIOD ONCE 
0D 19 48 4 Pa BLSS $ : NEGATIVE IS WAIT FOREVER 
50 00000000'GF 01 C1 4 é 40 ; ADDL3 #1,G*EXESGL_TODR,RO : ZERO, SET TIME-OF-DAY CLOCK TO 
Mi 
18 50 DA 4 A 4] MTPR RO, #PR730$_TODR : KNOWN VALUE + 10 MSEC AND FINISH UP 
48D 2424 
EO 11 048D 24 BRB 5$ : 
ter 56 
58 14 DO O48F 2434 7$: MOVL  #20.R8 : STARTING WAIT 
59 Dé 04 435 INCL ; NEGATIVE = WAIT FOREVER 
94 24 é 8$: ASSIGN_S TTNA.iE(R6),TTCHAN(R6) ; AND ASSIGN TO INPUT DEVICE 
DD 50 €9 O4A2 24 BLBC ; ERROR = FALL BACK TO STORED TIME 
52. FF60 cf E 04A5 24 8 10$:  MOVAB u* fIMEPROMP R2 : GET ADDRESS OF PROMPT STRING 
53 82 GA O4AA 24 MOVZBL ; AND LENGTH 
4AD 440 $al0w S #0 wT CHAN ; PROMPT AND READ TIME 
4AD 244 S actos TREADPROMPT! 10$M_PURGE S10SM_1 MED! 10S. CYTLOW,- 


satin 


INIADP730 = ADAPTER INITIALIZATION FOR VAX 11/730 16-SEP-1984 00:51:41 VAX/VMS Macro V04-00 Page 31 IN 
v04-002 EXESINI _TODR = SET SYSTEM TIME TO COR 19-SE 5-1 382 9? 3gith POYSLOA. SREIINIADP MAR: 3 . dd) ve 
4AD 443 TMPDESC(R6),,,= ; 1/0 STATUS BLOCK , NO AST OR PARAM 
4AD 244 LINBUF (R6),#LINBUFSIZ,- ; BUFFER ADDRESS AND SIZE 
SAD 2444 R8,#0,- ; TIME OUT 
GAD 2445 R2,R : PROMPT ADDRESS AND SIZE 
AD 50 £9 4D 446 BLBC ~=._«RO.6 ; ERROR = FALL BACK TO STORED TIME 
54 O¢ A6 405 244 MOVQ TMPDESC(R6),R4 3 GET COMPLETION STATUS 
24 E8 04D 448 BLBS R4,20$ ; CONTINUE IF SUCCESSFUL READ 
9 4DC 244 BLBC 3=_-«aR 9. 6$ : FAILED ON ONE-TIME READ, RETURN 
58 Qi ABs E O4DF 24 0 MOVAB 1(RB)CR8],R8 + (2 ® TIMEOUT) + 1 
8 5 C O4E4 24 MOVZWL Rs RB + BOUND TIMEOUT 
BC 11 04€7 24 ‘ BRB 10$ : TRY AGAIN FOR TIME 
33 43 20S: : SOMETHING WAS INPUT 
OC A6 OE AG 3¢ 4E9 2454 MOVZWL TMPDESC+2(R6),TMPDESC(R6) ; FORM DESCRIPTOR FOR BUFFER 
10 A6 «Oo 1C AGO ee 455 MOVAB  _LINBUF(R6), TMPDESC+4(R6) ; SET DESCRIPTOR ADDRESS 
4F 496 SBINTIM_S TMPDESC(R6),INTIME(R6) : CONVERT TO BINARY 
0550 €9 200 45 BLBC “R : INVALID TIME 
18 AB «OS (050 438 TSTL INT IME+4(R6) : CHECK FOR DELTA TIME 
2A «14 «0506 «245 BGTR 00$ : BRANCH IF NOT = OK 
508 2460 89$: > INVALID TIME VALUE INPUT 
52 EEB CF 9 0508 2461 MOVAB W*TIMERR,R2 + ADDRESS OF ERROR MESSAGE 
53. 82 9A 9500 46¢ MOVZBL (R2)+ : GET STRING LENGTH 
51 46 $SQ10W_S #0, TTCHAN(R6),- : GIVE ERROR MESSAGE 
051 464 #10$_WRITEVBLK,- ; 
051 465 eet t NO I/O S$TATUS,AST OR AST PARAM 
510 466 (R32), R3 ,- : BUFFER ADDRESS, LENGTH 
510 246 #0,#52 : SET CARRIAGE CONTROL TO CR/LF 
FF73 31 sf 468 em BRW 10$ ; AND TRY AGAIN 
05 $ 136 SDASSGN_S TTCHAN(R6) : DE-ASSIGN TERMINAL CHANNEL 
14 AG O7F 053¢ 471 200$: PUSHAQ “INTIME (R6) : SET NEW SYSTEM TIME 
00000000'GF 01 FB O053F 47¢ CALLS #1,G*EXESSETIME_INT : USE TODR CLOCK TO SET SYSTEM TIME 
00000000'GF 00000000'GF 7D 0546 247 MOVa GEXESGO_TODCBASE ,G*EXESGa BOOTTIME ; SAVE BOOT TIME 
SE 30—Ss 0 0551 47% ADDL #12%4,SP ; CLEAN OFF SCRATCH STORAGE 
077c BF OBA 0594 429 POPR #*M<R2,R3,R4,R5,R6,R8,R9.R10> ; RESTORE REGISTERS 
055 iss 3 
B23 rth} ; Fall through into the deallocate logic. 
be 480 ; RSB ; *** This goes in if another piece of 
bee 481 ; *e® initialization code is added that 
55 {| ; *** is executed after EXESINI_TIMWAIT. 
0558 248 .DISABLE LSB 
0558 2484 


INIADP730 = ADAPTER 
v04-002 EXESINIT. 
5 
7E 52 7D if 
0558 
beee 
558 
558 
558 
50 =6Q000'CF 9E 0558 
51 50 49 44 4 a C1 B208 
26 Q0000000'GF  9E B20 
5 Q0000000'GF 9E O56F 
9F17 BF 62 Bi 0576 
8 13 0576 
80 8F O3 A 91 0570 
18 12 0582 
50 6 Di 0584 
OC iF 0587 
51 bs D1 0589 
0 1A 058C 
62 00000000'GF of tt) 
52.0 CO 059 
P) D6 0598 
5 D6 O59A 
3 2 D1 bear 
D5 «=F «(05 9F 
Q5A1 
5A1 
5A1 
50 Q000'°CF 9E Q5A1 
51 00600'8F Hi 5A6 
FASE’ 31 : 
0000 ° 


SSSSSsssr. P 


00000000 0000000 
a 
6 
0 
16 


05 


00000000 ' 9F 
52. 


— 4 2 2 OOD 


SOSVvMIO OS 


1/ 
- SET SYSTEM TIME TO 
DEAL_INIT_CODE: ; 


It is the dut 


routine to aate itself and all 


must be disconnected, e.g. 
NOTE: 
to thi 
end of the module! 


- ENABLE L$6 
MOVQ R2,-(SP) : 


and reset them to point to E 
W*SYSLSBEGIN,RO 


CMPL = R2, R3 
BLSSU n66 


RSB : 
-DISABLE LSB 
~ END 


RI OOD NAME WIND OOD NAME WIN @ 9 OD NA UE WN 0 OD NAME WIP 8 ODNA UNE | O ODN 
s 


PWIA AAAI AAI PINININININIIIDD 4 4 BO QDODOOOOO000000000000000000 


TIALIZATION FOR VAX j 739 19-360" 138% 90:34:61 ey Macro V04-00 


ADDL3 #<STAY HEADER=SYSLSBEGIND, 
MOVAB G*EXESAL_LOAVEC,R 3 
MOVAB G*EXESLOAD ERROR RS : 
10$: CMPW (R2),#*X9FT ; 
BEQL ; 
CMPB (R2) ,#*X80 : 
BNEQ 40$ : 
CMPL  (R2), RO ; 
BLSSU  20$ 3 
CMPL (R2),R1 : 
BGTRU 20$ : 
MOVAB G*EXESLOAD_ERROF (R2) ; 
tt ADDL #2,R2 3 
0$: INCL R ; 
40$: R : 


MOVAB W*SYSLSBEGIN,RO : 
MOVZWL #<STAY_HEADER=SYSLSBEGIN>, 
BRwW 50$ 3 
.PSECT $$SINIT__END,PAGE ; 
STAY_HEADER: 
LONG 0 
“WORD <SYSLSEND-STAY_HEADER> 
BYTE DYNSC_LOADCODE 
“BYTE 
50$:  JSB aE XESDEANONPGDSIZ : 
MOVQ = (SP)4,R 


Save some registers 
First find the vectors that point to these initialization routines 
ute bounds of releasable piece: 


Pa 
SYSLOA.SRCJINIADP.MAR; 3 = 3) 


DEALLOCATE THE INITIALIZATION CODE 


of the Last-executed, loadable initialization 
other such routines disappear, i.e., 
release the space they ag to non=-paged pool. ector 

, be made to point to the symbol, EXESLOAD_ERROR. 


Each routine'’s v 


This means that new initialization routines should be added 
s module in a particular order, not necessarily at the 


ESLOAD_ERROR. 


Com 
RO-Ri ; starting and ending addresses. 
Get starting address of vectors. 
Get end of vectors. 
Is this JMP af ? 
Br if yes, skip past it. 
Is this a system space address 
Br if no, assume it’s a HALT instr. 
Is address before the releasable 
piece of memory? 6r on yes. 
Is address after the releasable 
piece of memory? 6r on yes. 
Reset this vector. 
Point past this vector. 
Come here to point past JMP af. 
Come here to point past HALT. 
Past the end of the vectors? 
Keep searching vectors. 


: Now release the memory to non-paged pool. 


int to start of module 
3; Length to vaporize 
r to code that is not released. 


*PAGE® SINCE 16-BYTE ALIGN IS NOT 


Po 
R1 


Just the smile on the Chesire cat 


; Restore 


Return. 


® 
-SEP- 251:4 AX/VMS Macro V04-00 Page 33 
IN1ADP730 ~ ADAPTER INITIALIZATION FOR vax 1/730 IPSEp=1984 10:29:18 EStSLOR. SRETINTADP RAR: 3 d 
Symbol table 
199 R 

SSSVMSDEF INED : ERROR HALT BONO ge R 
ADAP OR 02 ERESAC COADEC eenerees 
soeeaces A EXE SDEANONPGDS1Z eeeeeers = 
ADPSB_TYPE - EXESGL CONFREG REEREAEE x 

v4 at lt : i EXESGL-CONFREGL eneneene 
Aste = EXESGL-FLAGS eeeneves =f OP 
ADPSL CSR . , EXESGL-NUMNEXUS teeneree X 09 
ADPSL_DPQFL . 0 4 EXESGL RPB Rkekeeee x 9 
ADPSL_LINK ® EXE$GL SCB Reekeeee x 9 
ADPSL ~MRACTMDRS = 900000 EXESGL-SCB ee oe 
ADPSL ~MROFL = 00 EYESCLTODR aeeneeee§ X 09 
ADPSL_VECTOR ped 4 EXE$GL UBD L gkeeeene x 9 
ADP$W_ADPTYPE = F BES Ca-bOOTT INE teeeneee X09 
ADPSURREFENCE = 0000018¢ EXE$GQ"TODCBASE aoeeey EE 
ADPSW_MRF FENCE = 0000015 EXESINIT TODR 000004 3D 
MOP SUTARNFENCE 00000068 EXESINI_ TIMWAIT 00000388 09 
ADPSW_MRNF ENCE s f EXESLOAD. ERROR eeeneeee Xx 9 
ADPSW"MRNREGARY = 0000006 EXESLOAD_ERROR ee ae ae 
ADP Su SIZE = boopooe EXESOUTZSTRING teeeeeee =X 09 
yo oy = 00000056 EXESSETIME INT teeeeeee X 09 
ADP$W_UMR_DIS = 0000256 09 EXESTEST CSR aeeeeeee = KX 09 
ALONPAGD 90000205 R~ 09 EXESV SETTIME s0000800 Rk 

. FILL. CRB 

BADOMR a0090001 R 08 GET-GEN- TYPE 0000089 R 09 
aus = 80000000 GET-TYPE 00000A0 09 
Bi -Bus CODE = 0000000 1DBSB. TYPE = 9000000, 

wit = 99000002 IDBSC_LENGTH = 00000038 
BITLIKESe. = 0000000 1DBSL-ADP = 00000014 
Biot eRe ~ (00002F3 R «09 IDBSL~CSR = 00000000 
BOSE SYSTEMID teeneeee Xx 09 IDBSW7SIZE = 00000008 
BOOSGL -SPTFREH coreenee hi INT SALONORPAGED seseeses X09 
Boruetron wee 00000000 R08 INISCIADP 90000208 R= (09 
BOOTVEETOR 0040 INI SCONSOLE 00002DC RG 09 
BTD$K_CONSOLE = 44 4 eg INISDRADP 00002DB R 09 
BTDSK UDA S derereee INISIOMAP 900000 Rc 09 
pus foe preset “ 90000004 R 08 INISKDZ11 000208 R09 
Peete SOOSF 9 INISMBADP 000002DB R 9 
CONF 1G_TOSPACE 4 2 4 b3 INI SMPMADP eeenesee KX 06 
conrnes 000 1p K 08 INI SUBADP 00001C4 R 83 
pe oc oe 00000 R ~—s«O8 INISUBSPACE QOO01A7 R 9 
CPU_ADPSIZE = Bop oooS INT ROUTINES 0000000 R = 06 
CPU_TYPE os D INTIME = 00000014 

cr 4 10$M_CVTLOW eeeeeeee =X 09 
CRBSL_INTD s 8 10$M~ PURGE Reeeeeee xX 9 
CRB INTD2 s 11 09 10$M~ TIMED eeeeeere xX 9 
paar Eg neels PrPPPEEO 10$_READPROMPT eeeseses =X 09 
CSR_LER OFFSET = tonnonie 10$"WR1TEVBLK seeeeeee X09 
Deal TNIT CODE Bs R 09 LOPSOSAL_ LOBASE = 00F 

pine apecacer ge ST : ee 
DYNSC~CONF . 4 C TNBUE . ¢ 
DYNSC”1DB ° LINBUFSIZ . : 
DYNSE"LOADCODE : MAP _NEXUS PR 88 
END_NEXUS 115 R 09 MAP_PAGES 


INILADP730 
Symbol table 


MAXNEXUS 


MMGSGL~SPTBASE 
ND A 


N 
NDTS_MEM1664N1 
NDT 


mmm 
zzz 
= 


5555S 
— — 
a 
=z Pe > | 
m m 
332323 
m= SSoRRS— 
he 


AAAZ 

mn 
—— oe 
eer er 


NDTS UB 
NEXUSDE SC 
NOSPT 
NPROMPT 


NUM_PAGES 
NXT NEXUS 


TESC_Rw 
PTESM” VALID 
READTIME 


SOO" SDQOOOCoooooooooooooooooooowmoooooooooooooooo 


SHS) 


RERAEERE 
RRRRREEE 


ii 


RRR o 
SS rW> COW =O S sow 


OOQoQooooooooooooooooooooo 


OOOO GCOCOOCOOOOOOOCOOoOoOoSoO 


OOOOOCCCOOOCOOOCOCOOCoOooOOoO— 


SOoOSOSGOOOCOOSOSOSOSOS OOOO OoOOoOoooSoSo 
= a th 

Noo —WOOoooooo 

USSaoe SLSR oanse 


SOoOooooooooooooooooooooooooooooooosoooooooooecsoo 
fSooooooooooeo 
OOoOQoooooooo 
SOONwMOCCOCOSSCOS 
SOOWS —NMNrNINO 


X 
x 


09 


oo 
coco 


09 


N 
- ADAPTER INITIALIZATION FOR VAX 11/730 


Att 4 SH HH HINNNYNNNYMYNNNNYKVYDADAWAADAD 


TNAME 
UBASINITIAL 
UBASINTO 


VECSC_ADP 
VECS$L_1DB 


1 
1 


i33 


SEP= 
EP- 


1 
1 


Be 10:29: 


4 AX/VMS Mac 
i EeYSLOA. SRE 
i 
58 
1 
D8 R 
see 
9000001 
* 
keke 4 
68 $008 R 
0000005 R 
keekkeee GX 
kaekkaeee GX 
keekaeaee GX 
eeekeeee 6X 
Reekkeee 
Rkekeeee x 
QOO003F3 R 
BRB Rn oT 
0000071 R 
0000409 R 
O0003F7 R 
000000C 
0000000 
0000004 
RRARRERe x 
Reekenee x 
00000800 
Reekeeee x 
0000054 


08 


Oooo 
oO 


ooo OOCOoOCooO 
0200 Oroconovlnowm»r 


oo 
ono 


oOo 
oO 


be 
So 
7 


INLADP730 = ADAPTER INITIALIZATION FOR VAX F 1/430 i at 1 14 =1388 90: 34: } Parlves Be o V04-00 Page 33 
Psect synopsis 11-SEP-1984 16:29: SYSLOA. SRE STNIADP MAR;3 (17) 


tae reser ese aemen 


! ;_Psect synopsis ! 


eaeercoe anneunecnnt 


| 
PSECT name Allocation PSECT No. Attributes | 
ags ‘ $08 68 ( a} 0 ( -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE | 
9 ( -)> Q1¢ 1.) \NOPIC USR CON ABS LCL NOSHR’ EXE WRT NOVEC BYTE 
SSEINITSDATAO § 8 46 ¢ 116.) ¢ ( e°? NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATAI 0 . ¢ ) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATA 88 A ¢ 58.) 4 ( 4.) NOPIC USR CON REL LCL SH EXE RD WRT NOVEC BYTE 
SSINITSDATA 0 ¢ of 5 ( 5.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATAG 000074 ( 116.) $ ( of NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SSSINITSDATAS 0000 99 ( 3-3 07 ¢( 7.) NOPIC USR CON REL LCL NOSHR EXE AD WRT NOVEC BYTE 
SSSINITSDATA 944 ( 819.) 08 ¢ sf NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC L 
SSSINITSCODE OOOOSAE ( 1454.) 09 ( 9.) NOPIC USR CON REL LCL NOSHR EXE AD WRT NOVEC QUAD 
SSSINIT__END 00000016 ¢ 22.) OA ( 10.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
merece w ese oececscoe wonsconme 
: ; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 3) 00:00:00.05 99:00:00.4) 
Sy iiiien, 18S SOE SS BEF a | 
Syabol ee 259 00: 83:93:84 00:89:19:%6 
Symbol table output 25 00:00: 0.12 0:00:00.12 
Psect synopsis output 4 Ba: 288-8 00:00:00.19 
Cross-reference output 0 0:00: 9-98 Bp 'B0: 98-00 
Assembler run totals 951 00:00:19. 00:01:20.74 


The working set Limit was 1800 pages. 

136142 bytes (266 pages) of virtual memory were used to buffer the intermediate cod 

There were 90 pages of symbol table space ducing, $7 to hold 1619 non-local and 34 fecet symbols. 
2546 source Lines were read in Pass 1, producin object records in Pass 2. 

45 pages of virtual memory were used to define 2 3 macros. 


eee etree eee me eee eee ee ee wee H+ 


Macro Library name Macros defined 
“$52 RSDUACE: bevs- -OBJJLIB.MLB;1 $¢ 
$255$DUA sySt16 STARLET .MLB;2 4 


TOTALS (all Libraries) 

1782 GETS wer required to define 36 macros. 

There were no errors, warnings or information messages. 

MACRO/LIS=LIS$: INIADP730/0BJ=0BJ$: INIADP730 MSRC$:CPUSW730/UPDATE=(ENHS : CPUSW730) +MSRC$: INIADP/UPDATE=(ENHS: INIADP) +EXECMLS$/LIB 


ENT CORPORATION 
ND PROPRIETARY 


-BT13A-SE 
VAX/UMa V450 


039 


